﻿Public Class frm_principal

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        If System.Windows.Forms.DialogResult.OK = MessageBox.Show("Esta seguro que desea salir?", "Importante", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) Then
            Me.Close()
        End If
    End Sub

    Private Sub ABMClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ABMClientesToolStripMenuItem.Click
        Dim clientes As New Clientes()
        clientes.ShowDialog()
    End Sub

    Private Sub ABMTipoDeDocumentoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ABMTipoDeDocumentoToolStripMenuItem.Click
        Dim mediosDePago As New frm_mediodepago()
        mediosDePago.ShowDialog()
    End Sub

    Private Sub BarriosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarriosToolStripMenuItem.Click
        Dim barrio As New Barrio()
        barrio.ShowDialog()
    End Sub

    Private Sub AutoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoresToolStripMenuItem.Click
        Dim autores As New Autores()
        autores.ShowDialog()
    End Sub

    Private Sub EditorialesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditorialesToolStripMenuItem.Click
        Dim editoriales As New Abm_editoriales()
        editoriales.ShowDialog()
    End Sub

    Private Sub LibrosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LibrosToolStripMenuItem.Click
        Dim libros As New Abm_libros()
        libros.ShowDialog()
    End Sub

    Private Sub TipoDeDocumentoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TipoDeDocumentoToolStripMenuItem.Click
        Dim tiposDocumento As New Abm_tipodocumento()
        tiposDocumento.ShowDialog()
    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub LocalidadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LocalidadToolStripMenuItem.Click
        Dim localidades As New Abm_localidad()
        localidades.ShowDialog()
    End Sub

    Private Sub TemasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TemasToolStripMenuItem.Click
        Dim temas As New Abm_temas()
        temas.ShowDialog()
    End Sub

    Private Sub VentaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VentaToolStripMenuItem.Click
        Dim venta As New Factura()
        venta.ShowDialog()
    End Sub

    Private Sub ReservaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReservaToolStripMenuItem.Click
        Dim reserva As New Reserva()
        reserva.ShowDialog()
    End Sub

    Private Sub PréstamoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PréstamoToolStripMenuItem1.Click
        Dim prestamo As New Prestamo
        prestamo.ShowDialog()
    End Sub

    Private Sub GestiónDeMercaderíaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GestiónDeMercaderíaToolStripMenuItem.Click
        Dim ver_general As New ListadoDevoluciones
        ver_general.ShowDialog()
    End Sub

    Private Sub DevoluciónToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DevoluciónToolStripMenuItem.Click
        Dim devolucion As New Devolucion
        devolucion.ShowDialog()
    End Sub

    Private Sub GestiónDeVentasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GestiónDeVentasToolStripMenuItem.Click
        Dim listadoPrestamos As New ListadoPrestamos
        listadoPrestamos.ShowDialog()
    End Sub

    Private Sub CantidadDeLibrosPrestadosPorMesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CantidadDeLibrosPrestadosPorMesToolStripMenuItem.Click
        Dim estadistica As New CantLibrosPrestadosPorMes
        estadistica.ShowDialog()
    End Sub
End Class